home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_gnats.idb / usr / freeware / lib / gnats / contrib / tkgnats / msgDialog.z / msgDialog
Encoding:
Tcl/Tk script  |  1999-04-16  |  1.1 KB  |  42 lines
  1. #!/usr/local/bin/wish -file
  2.  
  3. #
  4. # $Id: msgDialog,v 1.3 1993/11/16 22:19:22 jason Exp $
  5. #
  6.  
  7. set TkGnats(lib) ./; ##TKGNATSLIB##
  8.  
  9. proc Lc {s} {return $s}
  10.  
  11. proc msgDialog {w msg} {
  12.     global TkGnats
  13.     catch {destroy $w}
  14.     frame $w -relief raised -borderwidth 4
  15.  
  16.     frame $w.m
  17.     label $w.m.label -bitmap @$TkGnats(lib)/info.xbm
  18.     message $w.m.msg -borderwidth 3 -relief sunken -text $msg -aspect 99999
  19.     pack append $w.m $w.m.label {left} $w.m.msg {right padx 12 pady 12}
  20.  
  21.     frame $w.bar 
  22.     button $w.bar.ok -text [Lc "OK"] -command "exit 0"
  23.     pack append $w.bar \
  24.     $w.bar.ok {bottom padx 8 pady 8}
  25.     pack append $w \
  26.     $w.m {top} \
  27.     $w.bar {bottom fillx}
  28.     ## bind $w <Visibility> { grab -global %W; focus %W }
  29.     pack append . $w {expand fill}
  30. }
  31. set exitVal 0
  32. wm title . "Information"
  33. set msg ""
  34. foreach m $argv {append msg "$m\n"}
  35. msgDialog .msgDialog  $msg
  36. wm geometry . [format "+%s+%s" \
  37.  +[expr "[winfo vrootx .]+([winfo screenwidth .]/2)-([winfo reqwidth .]/2)"] \
  38.  +[expr "[winfo vrooty .]+([winfo screenheight .]/2)-([winfo reqheight .]/2)"]]
  39. tkwait window .msgDialog
  40. # destroy . ; # for older tk versions
  41. exit $exitVal
  42.